home *** CD-ROM | disk | FTP | other *** search
/ Whiteline: Alpha / Whiteline Alpha.iso / tools / cpx_acc / cpxbasic / beispiel / rand.bas < prev    next >
Encoding:
BASIC Source File  |  1994-09-22  |  357 b   |  13 lines
  1. 10   REM Teste den Zufallszahlengenerator
  2. 20   a=0:b=0:c=1:i=0:j=0:p=0:t=PEEKL $4BA:u=t
  3. 30   WHILE
  4. 40     i=i+1
  5. 50     a=RAND:IF a>b THEN b=a:p=1
  6. 60     IF a<c THEN c=a:p=1
  7. 70     IF p=0 THEN 40
  8. 80     USING 8,14
  9. 90     PRINT c,1-b:z=PEEKL $4BA
  10. 100    USING 0,5:PRINT i;:USING 3,6:PRINT(z-t)*5/i,(z-u)*5/(i-j):j=i:u=z
  11. 110    PRINT:p=0
  12. 120  WEND
  13.